home *** CD-ROM | disk | FTP | other *** search
/ X User Tools / X User Tools (O'Reilly and Associates)(1994).ISO / sources / xrsh / xrsh_57.gz / xrsh_57
Text File  |  1994-06-06  |  45KB  |  1,260 lines
  1.  
  2. #---------------------------------- cut here ----------------------------------
  3. # This is a shell archive.  Remove anything before this line,
  4. # then unpack it by saving it in a file and typing "sh file".
  5. #
  6. # Wrapped by James J Dempsey <jjd@spchp17> on Mon Jun  6 13:14:51 1994
  7. #
  8. # This archive contains:
  9. #    xrsh.sh        xrlogin.sh    xrsh.man    xrlogin.man    
  10. #    COPYRIGHT    ChangeLog    FUTURE-WORK    Imakefile    
  11. #    README        
  12. #
  13. # Existing files will not be overwritten.
  14. # Error checking via wc(1) will be performed.
  15.  
  16. LANG=""; export LANG
  17. PATH=/bin:/usr/bin:$PATH; export PATH
  18.  
  19. if test -f xrsh.sh
  20. then
  21.     echo Ok to overwrite existing file xrsh.sh\?
  22.     read answer
  23.     case "$answer" in
  24.     [yY]*)    echo Proceeding;;
  25.     *)    echo Aborting; exit 1;;
  26.     esac
  27.     rm -f xrsh.sh
  28.     if test -f xrsh.sh
  29.     then
  30.         echo Error: could not remove xrsh.sh, aborting
  31.         exit 1
  32.     fi
  33. fi
  34. echo x - xrsh.sh
  35. cat >xrsh.sh <<'@EOF'
  36. #!/bin/sh
  37.  
  38. # Some System V systems don't understand the #! construct.  
  39. #   If your system does understand it, put ": " at the beginning of the line.
  40. #
  41. XRSH_VER='xrsh version 5.7'
  42. XRSH_RCS='$Header: /nfs/spserv/u5/jjd/xrsh/RCS/xrsh.sh,v 1.9 1994/06/06 17:11:26 jjd Exp $'
  43. XRSH_TIME='Time-stamp: <94/06/06 13:11:12 jjd>'
  44. #
  45. # Copyright 1991 by James J. Dempsey <jjd@bbn.com>
  46. # 
  47. # Permission to use, copy, modify, distribute, and sell this software and its
  48. # documentation for any purpose is hereby granted without fee, provided that
  49. # the above copyright notice appear in all copies and that both that
  50. # copyright notice and this permission notice appear in supporting
  51. # documentation, James J. Dempsey makes no representations about the
  52. # suitability of this software for any purpose.  It is provided "as is"
  53. # without express or implied warranty.
  54. #
  55. #
  56. # xrsh:  start an X11 client on another host
  57. #
  58. # Usage: xrsh [-help] [-version ] [-l username] [-auth authtype] [-screen #] [-pass envlist] \
  59. #    [-debug] [-debug2] hostname [X-command [arguments...]]
  60. #
  61. # Example usage: xrsh expo.lcs.mit.edu xterm
  62. #
  63. # Runs the given command on another host with $DISPLAY set in the environment.
  64. #    Handles authentication using xhost, xauth, or $XAUTHORITY (or none).
  65. #    Xrsh is very careful not to leave any extra processes waiting
  66. #       around on either machine for the client to exit.  In order
  67. #       to achieve this, csh is used on the remote host and all inputs
  68. #       and outputs are redirected to /dev/null.
  69. #    The -debug switch allows you to see errors, but doesn't worry about
  70. #       leaving extra processes around.
  71. #    The -debug2 switch sets -x so that you can see every command
  72. #       executed by the script  (very verbose)
  73. #    The -l switch allows you to use a different login name on the
  74. #       remote host.  -l and its argument are passed directly to rsh.
  75. #    The -help switch prints out the usage message.
  76. #    The -screen switch allows you to start a client on a different screen.
  77. #    If no X command is given, it defaults to xterm.  This means that
  78. #         'xrsh remotehost' will start an xterm on remotehost.
  79. #    If the given command is a path that ends in "xterm", it adds the 
  80. #        arguments "-name xterm-$hostname" where $hostname is the name
  81. #        of the remote host.  This allows you to customize your server's
  82. #        xrdb database to set attributes, such as the window color, based 
  83. #        on the name of remote host.  If you dislike this behaviour, specify
  84. #        your own -name argument to xterm on the xrsh command line.
  85. #
  86. #    Xrsh handles authentication based on the value of $XRSH_AUTH_TYPE or
  87. #        the value of the -auth command line switch.  The value can
  88. #        be xhost, xauth, environment or none.  It defaults to xhost.
  89. #             xhost -- run xhost to enable the remote host to open window
  90. #                      run xhost on the host where the server is running
  91. #             xhost-xterminal -- 
  92. #                      run xhost to enable the remote host to open windows
  93. #                      run xhost on the host where xrsh was first run
  94. #             xauth -- merge the auth entry from this host on the remote
  95. #                        host using xauth via rsh
  96. #             environment -- pass the $XAUTHORITY environment variable from the
  97. #                       local host to the remote host so that a common
  98. #                       NFS accessable authority file can be used everywhere
  99. #             none -- do nothing.  Assume the user has handled authentication.
  100. #
  101. #    If the environment variable XRSH_RSH_ERRORS is set to the name of a file, 
  102. #        any rsh errors will appear in that file on the remote host.
  103. #        If that variable is unset, error messages will be thrown away unless
  104. #        the -debug switch is given. (Note: don't use ~ in the filename
  105. #        because it will expand to ~ on the local host, but try to put the
  106. #        errors in that file on the remote host.)    
  107. #
  108. #
  109. #  COMMON PROBLEMS:
  110. #     * Make sure your PATH environment variable on the remote host is
  111. #           set in your .cshrc or .bashrc so that rsh programs have
  112. #           access to it.  (/bin/sh and /bin/ksh users have a hard time
  113. #           time here since their shells don't execute any init files
  114. #           under rsh.  One way to do this is to use the XRSH_ENVS_TO_PASS
  115. #           environment variable to pass PATH to the remote shell.
  116. #           Optionally, you can type a full path to xrsh.
  117. #           E.g.  xrsh remote-host /usr/bin/X11/xterm
  118. #
  119. #     * Make sure your PATH environment variable on the remote host
  120. #           includes the directory containing the X programs.  This is 
  121. #           often /usr/bin/X11 or /usr/local/bin/X11.
  122. #     * Make sure you have rsh configured to work on the remote host.
  123. #           You can test this by typing:  rsh remote-host echo '$PATH'
  124. #           This will prove that rsh works and show you the PATH that
  125. #           will be used on the remote host.  If you get "Permission 
  126. #           denied." you probably need to update your ~/.rhosts file
  127. #           on the remote host.  See rlogin(1).
  128. #
  129. # Until X11R5, this command used to be called "xon".  The name was
  130. # changed in order to be more descriptive, to have a name that better
  131. # matches its cousin (xrlogin) and to not collide with a similar command
  132. # written by Keith Packard distributed with X11R5.
  133. #
  134. # Written by Jim Dempsey <jjd@bbn.com> with help from Stephen Gildea
  135. #   <gildea@bbn.com> based on an idea by Dave Mankins <dm@think.com>.
  136. # Some additional features due to dgreen@cs.ucla.edu,
  137. #   "David B. Rosen" <rosen@park.bu.edu>, Eero Simoncelli 
  138. #    <eero@whitechapel.media.mit.edu> and  Martin Friedmann 
  139. #    <martin@whitechapel.media.mit.edu>
  140. #   Originally written around 1987.
  141. #   Last modification by jjd@bbn.com.
  142. #   Version 5.1 of xrsh was distributed with X11R5.
  143.  
  144.  
  145. # initialize some variables
  146.  
  147. default_auth_type=xhost   # sites might want to change this
  148. authenv=
  149. foundarg=
  150. progname=`basename $0`
  151. rshoptions=""
  152. passenvs=                # environment variables to pass along
  153. xhostvar=                # used by auth type xhost-xterminal
  154. usage="usage: $progname [-help] [-version] [-l username] [-auth authtype] [-screen #] [-debug] [-debug2] host [cmd [args ...]]"
  155.  
  156. if [ -z "$DISPLAY" ]; then
  157.     echo "$progname: "'$DISPLAY must be set' 1>&2 ;
  158.     exit 1
  159. fi
  160.  
  161. if [ -z "$XRSH_RSH_ERRORS" ]; then
  162.     XRSH_RSH_ERRORS=/dev/null
  163. fi
  164.  
  165. # process command line arguments
  166. until [ "$foundarg" = "no" ]
  167. do
  168.     foundarg=no
  169.     case $1 in
  170.     -version)
  171.         echo "Version: ${XRSH_VER}"
  172.         echo "RCS info: ${XRSH_RCS}"
  173.             echo "Last saved: ${XRSH_TIME}"
  174.             exit 0
  175.         ;;
  176.         -debug)
  177.             debug=t; foundarg=yes; shift;
  178.             ;;
  179.         -debug2)
  180.             set -x; foundarg=yes; shift; 
  181.             ;;
  182.     -help)
  183.             echo $usage; exit 0;
  184.             ;;
  185.         -l)
  186.             shift; rshoptions="-l $1"; foundarg=yes; shift;
  187.             ;;
  188.     -auth)
  189.             shift; XRSH_AUTH_TYPE=$1; foundarg=yes; shift;
  190.             ;;
  191.     -pass)
  192.             shift; XRSH_ENVS_TO_PASS=$1; foundarg=yes; shift;
  193.             ;;
  194.         -screen)
  195.             shift; 
  196.             # this line was blatantly stolen from Keith Packard's xon
  197.             DISPLAY=`echo $DISPLAY|sed 's/:\\([0-9][0-9]*\\)\\.[0-9]/:\1/'`.$1
  198.             foundarg=yes;
  199.             shift;
  200.             ;;
  201.     esac
  202. done
  203.  
  204. if [ "$#" = "0" ]; then
  205.     echo $usage 1>&2; exit 1;
  206. fi
  207.  
  208. clienthost="$1"; shift      # The full remote host name (as full as possible)
  209.  
  210. command=$1
  211. if [ -z "$command" ]; then  # default command to xterm if none specified
  212.     command=xterm
  213. else
  214.     shift
  215. fi
  216.  
  217. # Grab the arguments to the command here so that we don't have to worry
  218. # about restoring them when doing IFS hacking below
  219. xcmdargs="$@"
  220.  
  221. # Try to avoid running hostname.  
  222. # Some shells set $HOST or $HOSTNAME automatically.
  223. localhost=${HOST-${HOSTNAME-`hostname`}}           # The local host name
  224.  
  225. # Remove domain part from hostname.
  226.  
  227. # The following paragraph of IFS based code replaces sed and 
  228. #    runs faster because it doesn't fork.
  229. #       clientshort is remote host name without domain
  230. #clientshort=`echo $clienthost | sed -e 's/\..*$//'` 
  231. oldIFS=$IFS
  232. IFS=.
  233. set  $clienthost
  234. clientshort=$1
  235. IFS=$oldIFS
  236.  
  237. # Find display host
  238.  
  239. # The following paragraph of IFS based code replaces sed and 
  240. #    runs faster because it doesn't fork.
  241. #displayhost=`echo $DISPLAY | sed 's/:.*//'`
  242. oldIFS=$IFS
  243. IFS=:
  244. set  $DISPLAY
  245. case "$#" in
  246.     1) displayhost=$localhost;;
  247.     *) displayhost=$1;;
  248. esac
  249. IFS=$oldIFS
  250.  
  251. case "$displayhost" in
  252.     "unix"|"local"|"")
  253.         displayhost=$localhost;;
  254. esac
  255.  
  256. # People use the -name resource to specify host-specific resources
  257. # such as window color.
  258. if [ `basename "$command"` = "xterm" ]; then
  259.     command="$command -name xterm-$clientshort -title 'xterm@$clientshort'"
  260. fi
  261. if [ $# -ge 1 ]; then
  262.     command="$command $xcmdargs"
  263. fi
  264.  
  265. # Some System V hosts have rsh as "restricted shell" and ucb rsh is remsh
  266. if [ -r /usr/bin/remsh ]; then
  267.     rsh=remsh
  268. elif [ -f /usr/bin/rcmd ]; then       # SCO Unix uses "rcmd" instead of rsh
  269.     rsh=rcmd
  270. else
  271.     rsh=rsh
  272. fi
  273.  
  274. # Construct the new $DISPLAY for the remote client
  275.  
  276. # The following paragraph of IFS based code replaces sed and 
  277. #    runs faster because it doesn't fork.  It also handles the arp stuff.
  278. # newdisplay="`echo $DISPLAY | sed \"s/^[^:]*:/${localhost}:/\"`"
  279. oldIFS=$IFS
  280. IFS=:
  281. set  $DISPLAY
  282. if [ $# = 2 ]; then 
  283.     shift
  284. fi
  285. case "$clienthost" in
  286.     # If the remote host is the localhost, then don't put the hostname
  287.     #  in $DISPLAY and let X find the fastest display path
  288.     "$displayhost")
  289.         newdisplay=:$@
  290.         ;;
  291.     # if a full internet domain name is used, set $DISPLAY
  292.     # using IP address so remote host will be guaranteed return path
  293.     *.*)
  294.         if [ -f /usr/etc/arp ]; then
  295.             arp=/usr/etc/arp
  296.         elif [ -f /etc/arp ] ; then
  297.             arp=/etc/arp
  298.         else
  299.             arp=arp
  300.         fi
  301.         address=`$arp $displayhost |tr ')' '(' | awk  -F'(' '{print $2}'`
  302.         if [ "$address" ]; then
  303.             newdisplay="$address:$@"
  304.         else
  305.             newdisplay="${displayhost}:$@"
  306.         fi
  307.         ;; 
  308.     # A host in the local domain
  309.     *)
  310.         newdisplay="${displayhost}:$@"
  311.         ;;
  312. esac
  313. IFS=$oldIFS
  314.  
  315. # process env variables to pass early so that we can send them 
  316. # in the xauth commands as well as the actual X client rsh command.
  317. # This is necessary for brain-dead shells like ksh which don't run
  318. # any init files to set the path properly.  The user can instead
  319. # send PATH as an XRSH_ENVS_TO_PASS.
  320. for variable in $XRSH_ENVS_TO_PASS
  321. do
  322.     if eval [ \""\${$variable-Xyzzy}"\" != "Xyzzy" ]; then
  323.         eval passenvs="\"setenv $variable '\$$variable'; $passenvs"\"
  324.     fi
  325. done
  326.  
  327.  
  328.  
  329. # Use $XRSH_AUTH_TYPE to determine whether to run xhost, xauth, 
  330. # propagate $XAUTHORITY to the remote host, or do nothing
  331. case ${XRSH_AUTH_TYPE-$default_auth_type} in
  332.   xhost)      
  333.       if [ "$newdisplay" != "$DISPLAY" ]; then
  334.       # If run on the same host as server, allow remote host access X server.
  335.           if [ "$debug" ]; then
  336.               xhost +$clienthost
  337.           else
  338.               xhost +$clienthost > /dev/null 2>&1
  339.           fi
  340.       else
  341.           # If run on a different host as the server, use rsh to allow
  342.           #    access to the host in DISPLAY.
  343.           xhostcmd="setenv DISPLAY $DISPLAY; exec xhost +$clienthost"
  344.  
  345.           if [ "$debug" ]; then
  346.               # send $passenvs in case the user has a brain dead remote shell
  347.               # and needs to be able to pass the PATH env var (e.g. ksh)
  348.               echo "Executing \"xhost +$clienthost\" on $displayhost with DISPLAY=$DISPLAY"
  349.               $rsh "$displayhost"  exec /bin/csh -cf "\"$passenvs $xhostcmd\"" < /dev/null
  350.           else
  351.               $rsh "$displayhost"  exec /bin/csh -cf "\"$passenvs $xhostcmd < /dev/null >& /dev/null\"" < /dev/null > /dev/null 2>&1
  352.           fi
  353.       fi
  354.       ;;
  355.   xhost-xterminal)
  356.       # If run on an X terminal, rsh to the XDMCP host to run xhost
  357.       # if this is the first time, we are on the XDMCP host and 
  358.       # we can just run xhost.
  359.       if [ "$XHOST" = "" ]; then
  360.           xhostvar="setenv XHOST $localhost; "
  361.           if [ "$debug" ]; then
  362.               xhost +$clienthost
  363.           else
  364.               xhost +$clienthost > /dev/null 2>&1 
  365.           fi
  366.       else
  367.           xhostvar="setenv XHOST $XHOST; "
  368.           xhostcmd="setenv DISPLAY $DISPLAY; exec xhost +$clienthost"
  369.       # send $passenvs in case the user has a brain dead remote shell
  370.           # and needs to be able to pass the PATH env var (e.g. ksh)
  371.           if [ "$debug" ]; then
  372.               echo "Executing \"xhost +$clienthost\" on $XHOST with DISPLAY=$DISPLAY"
  373.               $rsh "$XHOST"  exec /bin/csh -cf "\"$passenvs $xhostcmd\"" < /dev/null
  374.           else
  375.               $rsh "$XHOST"  exec /bin/csh -cf "\"$passenvs $xhostcmd < /dev/null >& /dev/null\"" > /dev/null < /dev/null 2>&1
  376.           fi
  377.       fi
  378.       ;;
  379.   xauth)
  380.       # the "xauth remove" is theoretically unnecessary below,
  381.       # but due to a bug in the initial X11R5 (fixed in fix-09) xauth,
  382.       # entries for MIT-MAGIC-COOKIE-1 get lost if
  383.       # you do merge twice without the remove.  The remove
  384.       # command can be removed when xauth gets fixed.
  385.       if [ "$debug" ]; then
  386.           xauth extract - $newdisplay | \
  387.           $rsh $clienthost $rshoptions exec /bin/csh -cf "\"$passenvs xauth remove $newdisplay ; xauth merge -\""
  388.       else
  389.           # Conditionalize this on $passenvs so that we don't pay the price
  390.           # of forking a csh on the remote host if we don't need environment
  391.           # variables evaluated.
  392.           if [ "$passenvs" ]; then
  393.               xauth extract - $newdisplay | \
  394.               $rsh $clienthost $rshoptions exec /bin/csh -cf "\"$passenvs xauth remove $newdisplay ; xauth merge -\"" >/dev/null 2>&1 < /dev/null
  395.           else
  396.               xauth extract - $newdisplay | \
  397.               $rsh $clienthost $rshoptions xauth remove $newdisplay \;xauth merge - >/dev/null 2>&1 < /dev/null
  398.           fi
  399.       fi
  400.       ;;
  401.   none)
  402.       ;;
  403.   environment)
  404.       authenv="setenv XAUTHORITY $XAUTHORITY; "
  405.       ;;
  406.   *)
  407.       echo -n "$progname: "'$XRSH_AUTH_TYPE must be set to "xhost", ' 1>&2
  408.       echo '"xhost-xterminal", "xauth", "environment" or left unset' 1>&2
  409.       exit 1
  410.       ;;
  411. esac
  412.  
  413.  
  414. # Do the real work using rsh.
  415. # Don't use -n to rsh because SG IRIX doesn't support it.  
  416. # Use < /dev/null instead.
  417. if [ "$debug" ]; then
  418.     echo "Executing \"$command\" on $clienthost with DISPLAY=$newdisplay"
  419.     $rsh $clienthost $rshoptions /bin/csh -cf "\"setenv DISPLAY $newdisplay; $authenv $xhostvar $passenvs $command\"" < /dev/null
  420. else
  421. #
  422. # The redirection inside the innermost quotes is done by csh.  The outer
  423. # redirection is done by whatever shell the user uses on the remote end.
  424. # The inner redirection is necessary for an error log -- the outer 
  425. # redirection is necessary to make sure that the local rsh doesn't hang around.
  426. #
  427. # The outermost < /dev/null is to simulate the -n argument to rsh which 
  428. # we don't want to use for portability reasons.
  429. #
  430. # The three sets of redirections are for the local shell, the login shell
  431. # on the remote host and the csh on the remote host.
  432. #
  433. # We would like the last '>' to be '>&' or equivalent, but that would make this
  434. # code dependent on what flavor of shell the user uses on the remote host
  435. #
  436.     exec $rsh  $clienthost $rshoptions exec /bin/csh -cf "\"setenv DISPLAY $newdisplay; $authenv $xhostvar $passenvs exec $command < /dev/null >>& $XRSH_RSH_ERRORS \" < /dev/null > /dev/null " < /dev/null 
  437.  
  438. fi
  439.  
  440.  
  441.  
  442. @EOF
  443. set `wc -lwc <xrsh.sh`
  444. if test $1$2$3 != 406229915679
  445. then
  446.     echo ERROR: wc results of xrsh.sh are $* should be 406 2299 15679
  447. fi
  448.  
  449. chmod 555 xrsh.sh
  450.  
  451. if test -f xrlogin.sh
  452. then
  453.     echo Ok to overwrite existing file xrlogin.sh\?
  454.     read answer
  455.     case "$answer" in
  456.     [yY]*)    echo Proceeding;;
  457.     *)    echo Aborting; exit 1;;
  458.     esac
  459.     rm -f xrlogin.sh
  460.     if test -f xrlogin.sh
  461.     then
  462.         echo Error: could not remove xrlogin.sh, aborting
  463.         exit 1
  464.     fi
  465. fi
  466. echo x - xrlogin.sh
  467. cat >xrlogin.sh <<'@EOF'
  468. #!/bin/sh
  469. # Some System V systems don't understand the #! construct.  
  470. #       In this case replace the first line with just a colon (:)
  471. #
  472. # Copyright 1991 by James J. Dempsey <jjd@bbn.com>
  473. #  Version 5.3
  474. #  Time-stamp: <92/09/14 09:58:49 jjd>
  475. # 
  476. # Permission to use, copy, modify, distribute, and sell this software and its
  477. # documentation for any purpose is hereby granted without fee, provided that
  478. # the above copyright notice appear in all copies and that both that
  479. # copyright notice and this permission notice appear in supporting
  480. # documentation, James J. Dempsey makes no representations about the
  481. # suitability of this software for any purpose.  It is provided "as is"
  482. # without express or implied warranty.
  483. #
  484. # Starts a local xterm running rlogin or telnet
  485. # Written by Stephen Gildea <gildea@expo.lcs.mit.edu> 
  486. #     and Jim Dempsey <jjd@bbn.com>
  487. #
  488. # Usage: xrlogin [-l username] [-telnet] [emulator options] hostname
  489.  
  490. # Set some defaults.
  491. progname=`basename $0`
  492. usage="usage: $progname [-l logname] [-telnet] [emulator options] host"
  493. netprog="rlogin"
  494. netprogopts="-8"
  495. termprog=xterm
  496. termprogopts=
  497. telnet=
  498. user=
  499. host=
  500.  
  501. # process arguments
  502. while [ "$*" != "" ]; do
  503.     case "$1" in 
  504.       -telnet)
  505.           telnet=t;
  506.           ;;
  507.       -l)
  508.           if [ "$telnet" ]; then
  509.               echo "$progname: Can't use -l with -telnet" 1>&2
  510.               echo $usage 1>&2
  511.               exit 1
  512.           fi
  513.           user=$2; shift;
  514.           ;;
  515.       *)
  516.       # assume anything else is an argument to terminal emulator
  517.           #  (except the last one which is the hostname)
  518.       termprogopts="$termprogopts $1"
  519.           ;;
  520.     esac
  521.     shift
  522. done
  523.  
  524. if [ "$user" -a "$telnet" ]; then
  525.     echo "$progname: Can't use -l with -telnet" 1>&2
  526.     echo $usage 1>&2
  527.     exit 1
  528. fi
  529.  
  530. if [ "$telnet" ]; then
  531.     netprog=telnet;
  532.     netprogopts= ;
  533. fi
  534. if [ "$user" ]; then
  535.     netprogopts="$netprogopts -l $user"
  536. fi
  537.  
  538. # last item in termprogopts is the hostname by definition 
  539. #    (arg list and man page)
  540. item=
  541. # xyzzy keeps shell from getting confused if option begins with '-'
  542. set xyzzy $termprogopts
  543. termprogopts=
  544. shift
  545. for i in $@
  546. do
  547.     if [ ! -z "${item}" ]; then
  548.         termprogopts="$termprogopts $item"
  549.     fi
  550.     item=$i
  551. done
  552. host=$item
  553.  
  554. if [ "$XRLOGIN_TERM_EMULATOR" != "" ]; then
  555.     termprog=$XRLOGIN_TERM_EMULATOR
  556. else
  557.     case "$TERM" in
  558.       *term)
  559.     # TERM looks like it is an X11 terminal emulator, so use it.
  560.     # Should also look for *terminalEmulatorName resource.
  561.         termprog=$TERM;;
  562.     esac
  563. fi
  564.  
  565. if [ "$termprog" = "xterm" ]; then
  566.     termprogopts="$termprogopts -ut"
  567. fi
  568.  
  569. # Remove domain part from hostname.
  570. name=`echo $host | sed -e 's/\..*$//'`
  571.  
  572. # netprogopts are required to go after hostname on some SYS V hosts
  573. exec $termprog -name $termprog-$name -title $name $termprogopts -e $netprog $host $netprogopts
  574. @EOF
  575. set `wc -lwc <xrlogin.sh`
  576. if test $1$2$3 != 1064092827
  577. then
  578.     echo ERROR: wc results of xrlogin.sh are $* should be 106 409 2827
  579. fi
  580.  
  581. chmod 555 xrlogin.sh
  582.  
  583. if test -f xrsh.man
  584. then
  585.     echo Ok to overwrite existing file xrsh.man\?
  586.     read answer
  587.     case "$answer" in
  588.     [yY]*)    echo Proceeding;;
  589.     *)    echo Aborting; exit 1;;
  590.     esac
  591.     rm -f xrsh.man
  592.     if test -f xrsh.man
  593.     then
  594.         echo Error: could not remove xrsh.man, aborting
  595.         exit 1
  596.     fi
  597. fi
  598. echo x - xrsh.man
  599. cat >xrsh.man <<'@EOF'
  600. .\" Copyright 1991,1994 by James J. Dempsey <jjd@bbn.com>
  601. .\" 
  602. .\" Permission to use, copy, modify, distribute, and sell this software and its
  603. .\" documentation for any purpose is hereby granted without fee, provided that
  604. .\" the above copyright notice appear in all copies and that both that
  605. .\" copyright notice and this permission notice appear in supporting
  606. .\" documentation, James J. Dempsey makes no representations about the
  607. .\" suitability of this software for any purpose.  It is provided "as is"
  608. .\" without express or implied warranty.
  609. .TH XRSH 1 "Release 6" "X Version 11"
  610. .SH NAME
  611. xrsh \- start an X program on a remote machine
  612. .SH SYNOPSIS
  613. .B xrsh
  614. [
  615. .B \-help
  616. ] [
  617. .B \-version
  618. ] [
  619. .B \-l
  620. .I username
  621. ] [
  622. .B \-auth
  623. .I authtype
  624. ] [
  625. .B \-screen
  626. .I screen-#
  627. ] [
  628. .B \-pass
  629. .I envlist
  630. ] [
  631. .B \-debug
  632. ] [
  633. .B \-debug2
  634. ]
  635. .I remote-host
  636. [
  637. .I X-command
  638. [
  639. .I arguments ... ] ]
  640. .SH DESCRIPTION
  641. .I Xrsh
  642. runs the given X command on a remote host.  It sets up the environment for 
  643. that command such that it will display its windows on the current
  644. server's screen by propagating the $DISPLAY environment variable. 
  645. If not specified, the default client is \fIxterm\fP.  Xrsh automatically
  646. selects \fIrsh\fP(1), \fIremsh\fP(1) or \fIrcmd\fP(1) to execute remote commands, depending 
  647. on what is available the O/S environment. 
  648. .PP
  649. Xrsh automatically handles authentication so that the remote client
  650. will be allowed to open windows on the server.  It does this in
  651. several different ways depending on the value of the $XRSH_AUTH_TYPE
  652. environment variable or the \-auth argument.
  653. .PP
  654. By default, xrsh will use xhost to enable the remote client to open a
  655. server connection.  It can also be told to use xauth to merge local
  656. keys into a remote authorization file.   Or it can pass the $XAUTHORITY
  657. environment variable to the remote host in order to share a common NFS
  658. mounted authority file.  It can also be directed to do nothing in the
  659. case where no explicit authorization is necessary.
  660. .PP
  661. Users who just want a remote terminal window might look at xrsh's
  662. sister command, xrlogin(1).  Xrlogin uses a locally running xterm to
  663. open an rlogin connection to a remote host.  The decision on whether
  664. to use "xrsh host xterm" or "xrlogin host" should be based on several
  665. factors.  If X is unavailable on the remote host or the local terminal 
  666. emulator has better features, use xrlogin.  In general, the author 
  667. recommends using xrsh over xrlogin in most situations.
  668. .PP
  669. If the command to execute on the remote host is an xterm, xrsh
  670. automatically passes the -name argument to xterm with a value of
  671. "xterm-hostname" where hostname is the name of the remote host.  This
  672. allows the user to specify resources in their server's resource
  673. manager which are specific to xterms from a given host.  For example,
  674. this feature can be used to make all xterm windows from a given remote
  675. host be the same color or use a specific font or start up in a
  676. specific place on the screen.  Xrlogin passes the same string so they
  677. are compatible in this regard.  This feature can be overridden by
  678. specifying your own -name argument on the xterm command line.
  679. .PP
  680. If the command to execute on the remote host is an xterm, xrsh specifies 
  681. that the default title for the new xterm will be "xterm@hostname"
  682. where hostname is the name of the remote host.  This can also be
  683. overridden by specifying your own -title argument on the xterm command
  684. line.
  685. .PP
  686. Xrsh is very careful not to leave any extra processes 
  687. on either the local or remote machine waiting around for the client to
  688. exit.  In some remote environments (particularly some Sys V
  689. implementations of csh and rsh), this is impossible and xrsh should be
  690. run as a background command.
  691. .SH OPTIONS
  692. Note that xrsh options precede the given X command and its arguments.
  693. .sp
  694. .IP "\fB\-auth authtype\fP"
  695. Choose what type of X authorization (or access control) is going to be
  696. used.  Authtype can be one of "xhost", "xauth", "xhost-xterminal", "environment", or
  697. "none".  The default is xhost, but the default can be set by setting
  698. the value of the environment variable $XRSH_AUTH_TYPE.
  699. .IP
  700. If xhost is specified and the X server is running on the local
  701. machine, xhost will be run locally to enable the remote host to open an X
  702. connection.  If the server is on a third host (not the one where xrsh
  703. is running and not the one where you wish to run the command), rsh will
  704. be used to run xhost on the server host to authorize the host where
  705. the command will be run.
  706. .IP
  707. If xauth is specified, then xrsh will merge the entries for the server from 
  708. the local $XAUTHORITY file into that of the remote host using rsh.
  709. .IP
  710. The authtype xhost-xterminal is intended for use by people using X terminals.
  711. If xhost-xterminal is used, then the first time xrsh is run, it runs xhost locally to 
  712. enable the remote host for access.  This should work since (theoretically)
  713. the first time it is run is on the XDMCP host for the X terminal.  From then
  714. on it propagates the name of that host to all remote hosts via the environment
  715. variable $XHOST.  In subsequent invocations from remote hosts, xrsh uses rsh
  716. to connect to the host $XHOST and run xhost to enable new remote hosts.
  717. .IP 
  718. Authtype "none" does no explicit work for access control.  Use this if you 
  719. don't enable access control or if you use another mechanism for access
  720. control.
  721. .IP
  722. Finally, authtype "environment" automatically propagates the environment
  723. variable $XAUTHORITY to remote hosts, assuming that it is an NFS 
  724. mounted location that can be accessed from all hosts.
  725. .IP "\fB-debug\fP"
  726. Normally xrsh redirects standard input and standard output to
  727. /dev/null in an effort to cause unneeded rshd and shell processes to
  728. exit.  As a result, the user can't usually see any errors that might
  729. occur (like a "Permission denied." from rsh).  If you are having
  730. trouble getting xrsh to work with a remote host, try giving the -debug
  731. switch to see if any errors are being generated.
  732. .IP "\fB-debug2\fP"
  733. This switch causes xrsh to turn on the -x option in the shell so that
  734. the user can see every shell command executed by xrsh.  Only use this
  735. script if you are debugging the xrsh code itself.
  736. .IP "\fB-help\fP"
  737. Print out the argument list to standard output.
  738. .IP "\fB-l username\fP"
  739. Use the -l switch to specify a different user name to use for logging
  740. in via rsh on the remote host.
  741. .IP "\fB-pass envlist\fP"
  742. Envlist is a quote delimited string naming an arbitrary set of
  743. environment variables to pass on to the shell environment on the
  744. remote host.  If one wanted to set $XRSH_AUTH_TYPE and $XAUTHORITY to
  745. the remote host, one could use: -pass "XRSH_AUTH_TYPE XAUTHORITY".  
  746. A default set of environment variables to pass may be set using the
  747. environment variable $XRSH_ENVS_TO_PASS.
  748. .IP "\fB-screen screen-#\fP"
  749. Specify a different screen on the server on which to display the
  750. remote client.
  751. .IP "\fB-version\fP"
  752. Print out version information and exit.
  753. .SH ENVIRONMENT
  754. The environment variables XRSH_AUTH_TYPE and XRSH_ENVS_TO_PASS which
  755. can be used to set switch defaults are overridden if the equivalent
  756. switch is specified as well.
  757. .IP "\fBXAUTHORITY\fP"
  758. The $XAUTHORITY environment variable is passed to the remote host if
  759. the authtype specified by -auth or $XRSH_AUTH_TYPE is "environment".
  760. .IP "\fBXRSH_AUTH_TYPE\fP"
  761. This environment variable can be used to specify the default type of
  762. authorization or access control.  The values it can be set to are the
  763. same as the values for the argument -auth.
  764. .IP "\fBXRSH_RSH_ERRORS\fP"
  765. If the environment variable XRSH_RSH_ERRORS is set to the name of a file, 
  766. any rsh errors will appear in that file on the remote host.
  767. If that variable is unset, error messages will be thrown away unless
  768. the -debug switch is given. (Note: don't use ~ in the filename
  769. because it will expand to ~ on the local host, but try to put the
  770. errors in that file on the remote host.)    
  771. .IP "\fBXRSH_ENVS_TO_PASS\fP"
  772. .SH COMMON PROBLEMS
  773. Make sure your PATH environment variable on the remote host is
  774. set in your .cshrc or .bashrc so that rsh programs have
  775. access to it.  (/bin/sh and /bin/ksh users have a hard time
  776. time here since their shells don't execute any init files
  777. under rsh.  You can use the XRSH_ENVS_TO_PASS environment variable
  778. to pass the PATH environment variable to the remote host.  Optionally,
  779. you can type  a full path to xrsh in that case.
  780. (E.g.  xrsh remote-host /usr/bin/X11/xterm))
  781. .PP
  782. Make sure your PATH environment variable on the remote host
  783. includes the directory containing the X programs.  This is 
  784. often /usr/bin/X11 or /usr/local/bin/X11.
  785. .PP
  786. Make sure you have rsh configured to work on the remote host.
  787. You can test this by typing:  rsh remote-host echo '$PATH'
  788. This will prove that rsh works and show you the PATH that
  789. will be used on the remote host.  If you get "Permission 
  790. denied." you probably need to update your ~/.rhosts file
  791. on the remote host.  See rlogin(1).
  792. .SH EXAMPLES
  793. .IP "xrsh yoda"
  794. Start an xterm on the host yoda which displays on the current X
  795. server.  Use xhost for access control.
  796. .IP "xrsh -auth xauth underdog emacs"
  797. Start an emacs on the host underdog.  Merge xauth authorization
  798. entries for this server into the authority file on the remote host.
  799. .IP "xrsh -l mjd -auth none -pass XRSH_AUTH_TYPE -debug tigger xterm -fn 5x7"
  800. Start an xterm on the host tigger in a very small font, propagate the
  801. environment variable $XRSH_AUTH_TYPE to the remote host, login to the
  802. remote host using the id "mjd", don't do any specific authorization
  803. and don't redirect standard/error output to /dev/null so I can see any errors.
  804. .SH BUGS
  805. .PP
  806. If the values of the environment variables specified in -pass or
  807. $XRSH_ENVS_TO_PASS contain quote characters, xrsh will have difficulty.
  808. .PP
  809. If the remote host can't resolve the hostname of the server host
  810. (through /etc/hosts, DNS or NIS), the remote client will not be able
  811. to open a connection to the server.
  812. .PP
  813. System V users may need to make the first line of the script begin
  814. with colon (:).
  815. .SH SEE ALSO
  816. .PP
  817. xrlogin(1), rsh(1), xhost(1), xauth(1)
  818. .SH AUTHOR
  819. James J. Dempsey <jjd@bbn.com> with help and suggestions from many
  820. people including gildea@expo.lcs.mit.edu, dm@think.com,
  821. dgreen@cs.ucla.edu and rosen@cns.bu.edu,  <eero@whitechapel.media.mit.edu>, 
  822. and  <martin@whitechapel.media.mit.edu>.
  823. @EOF
  824. set `wc -lwc <xrsh.man`
  825. if test $1$2$3 != 223172510259
  826. then
  827.     echo ERROR: wc results of xrsh.man are $* should be 223 1725 10259
  828. fi
  829.  
  830. chmod 444 xrsh.man
  831.  
  832. if test -f xrlogin.man
  833. then
  834.     echo Ok to overwrite existing file xrlogin.man\?
  835.     read answer
  836.     case "$answer" in
  837.     [yY]*)    echo Proceeding;;
  838.     *)    echo Aborting; exit 1;;
  839.     esac
  840.     rm -f xrlogin.man
  841.     if test -f xrlogin.man
  842.     then
  843.         echo Error: could not remove xrlogin.man, aborting
  844.         exit 1
  845.     fi
  846. fi
  847. echo x - xrlogin.man
  848. cat >xrlogin.man <<'@EOF'
  849. .\" Copyright 1991,1994 by James J. Dempsey <jjd@bbn.com>
  850. .\" 
  851. .\" Permission to use, copy, modify, distribute, and sell this software and its
  852. .\" documentation for any purpose is hereby granted without fee, provided that
  853. .\" the above copyright notice appear in all copies and that both that
  854. .\" copyright notice and this permission notice appear in supporting
  855. .\" documentation, James J. Dempsey makes no representations about the
  856. .\" suitability of this software for any purpose.  It is provided "as is"
  857. .\" without express or implied warranty.
  858. .TH XRLOGIN 1 "Release 6" "X Version 11"
  859. .SH NAME
  860. xrlogin \- start an xterm that uses rlogin or telnet to connect to a remote host
  861. .SH SYNOPSIS
  862. .B xrlogin
  863. [-l username] [-telnet] [xterm options] remote-host
  864. .SH DESCRIPTION
  865. .I Xrlogin
  866. opens an xterm window and runs rlogin or telnet to login to a remote host.
  867. .PP
  868. Xrlogin
  869. automatically passes the -name argument to xterm with a value of
  870. "xterm-hostname" where hostname is the name of the remote host.  This
  871. allows the user to specify resources in their server's resource
  872. manager which are specific to xterms from a given host.  For example,
  873. this feature can be used to make all xterm windows to a given remote
  874. host be the same color or use a specific font or start up in a
  875. specific place on the screen.  Xrsh(1) passes the same string so they
  876. are compatible in this regard.  
  877. .PP
  878. Xrlogin specifies that the default title for the new xterm will be
  879. "hostname" where hostname is the name of the remote host.  This and
  880. the -name argument above can be overridden with xterm-options on the
  881. command line.
  882. .PP
  883. One could also use xrlogin's sister command xrsh(1) to open a window
  884. to a remote host.  In the case of xrsh, the xterm would run on the
  885. remote host and use X as the connection protocol while xrlogin would
  886. run the xterm on the local host and use rlogin or telnet as the
  887. connection protocol.  See xrsh(1) for a discussion of the merits of
  888. each scheme.
  889. .SH OPTIONS
  890. .IP "\fB-l username\fP"
  891. When not using -telnet, use username as the id to login to the remote
  892. host.
  893. .IP "\fB-telnet\fP"
  894. Use the -telnet protocol to open the connection instead of rlogin.  In
  895. general rlogin is preferred because it can be configured to not prompt
  896. the user for a password.  Rlogin also automatically propagates window
  897. size change signals (SIGWINCH) to the remote host so that applications
  898. running there will learn of a new window size.  Use of telnet
  899. provided mostly for hosts that don't support rlogin.
  900. .SH COMMON PROBLEMS
  901. Make sure that the local host is specified in the .rhosts file on the
  902. remote host or in the remote hosts /etc/hosts.equiv file.  See
  903. rlogin(1) for more information.
  904. .SH EXAMPLES
  905. .IP "xrlogin -bg red yoda"
  906. Start a local red xterm which connects to the remote host yoda using rlogin.
  907. .IP "xrlogin -telnet c70"
  908. Open a local xterm which connects to the remote host c70 using telnet.
  909. .SH SEE ALSO
  910. .PP
  911. xrsh(1), rlogin(1), telnet(1)
  912. .SH AUTHOR
  913. James J. Dempsey <jjd@bbn.com> and Stephen Gildea <gildea@expo.lcs.mit.edu>.
  914. @EOF
  915. set `wc -lwc <xrlogin.man`
  916. if test $1$2$3 != 655113013
  917. then
  918.     echo ERROR: wc results of xrlogin.man are $* should be 65 511 3013
  919. fi
  920.  
  921. chmod 444 xrlogin.man
  922.  
  923. if test -f COPYRIGHT
  924. then
  925.     echo Ok to overwrite existing file COPYRIGHT\?
  926.     read answer
  927.     case "$answer" in
  928.     [yY]*)    echo Proceeding;;
  929.     *)    echo Aborting; exit 1;;
  930.     esac
  931.     rm -f COPYRIGHT
  932.     if test -f COPYRIGHT
  933.     then
  934.         echo Error: could not remove COPYRIGHT, aborting
  935.         exit 1
  936.     fi
  937. fi
  938. echo x - COPYRIGHT
  939. cat >COPYRIGHT <<'@EOF'
  940. # Copyright 1991,1994 by James J. Dempsey <jjd@bbn.com>
  941. # 
  942. # Permission to use, copy, modify, distribute, and sell this software and its
  943. # documentation for any purpose is hereby granted without fee, provided that
  944. # the above copyright notice appear in all copies and that both that
  945. # copyright notice and this permission notice appear in supporting
  946. # documentation, James J. Dempsey makes no representations about the
  947. # suitability of this software for any purpose.  It is provided "as is"
  948. # without express or implied warranty.
  949. @EOF
  950. set `wc -lwc <COPYRIGHT`
  951. if test $1$2$3 != 986530
  952. then
  953.     echo ERROR: wc results of COPYRIGHT are $* should be 9 86 530
  954. fi
  955.  
  956. chmod 444 COPYRIGHT
  957.  
  958. if test -f ChangeLog
  959. then
  960.     echo Ok to overwrite existing file ChangeLog\?
  961.     read answer
  962.     case "$answer" in
  963.     [yY]*)    echo Proceeding;;
  964.     *)    echo Aborting; exit 1;;
  965.     esac
  966.     rm -f ChangeLog
  967.     if test -f ChangeLog
  968.     then
  969.         echo Error: could not remove ChangeLog, aborting
  970.         exit 1
  971.     fi
  972. fi
  973. echo x - ChangeLog
  974. cat >ChangeLog <<'@EOF'
  975. Mon Jun  6 11:10:23 1994  James J Dempsey  (jjd@spchp17.BBN.COM)
  976.  
  977.     * Added some /dev/null redirections to rsh commands to fix hanging
  978.     problem when using csh as login shell and xrsh'ing to some remote
  979.     OSes like HP-UX.  Upped version to 5.7.
  980.  
  981.     * Changed Imakefile comments from # to XCOMM as per gildea@x.org. 
  982.     * Added double quotes around assignment of xcmdargs at gildea's
  983.     suggestion.
  984.  
  985. Fri Jun  3 11:10:23 1994  James J Dempsey  (jjd@spchp17.BBN.COM)
  986.  
  987.     * Released version 5.6 to X Consortium for X11R6 contrib after
  988.     making only minor cosmetic changes from the version called 5.6
  989.     below.  Most (all?) of the changes were in the supporting README
  990.     type files and man pages.
  991.  
  992. Fri Mar 18 17:22:46 1994  James J Dempsey  (jjd@spchp17)
  993.  
  994.     * Added -version feature at the request of rws@x.org
  995.     Now at version 5.6.
  996.  
  997. Mon Sep 14 09:57:27 1992  James J Dempsey  (jjd at spchp17)
  998.  
  999.     * Fixed a bug in xrlogin reported by dave@csis.dit.csiro.au.
  1000.     The problem was that if xterm options were sent in on the xrlogin
  1001.     cmd line, $item wasn't set and generates a "test: arg expected"
  1002.     error.  Replaced with [ ! -z ""].  Updated version to 5.3.
  1003.  
  1004. Fri Jun  5 10:06:39 1992  James J Dempsey  (jjd@spchp17)
  1005.  
  1006.     * Fixed line in xrsh.man which caused groff to barf due to 
  1007.     quoting.  Reported by Paul Eggert <eggert@twinsun.com>     
  1008.  
  1009. Thu Apr 16 15:32:39 1992  James J Dempsey  (jjd@spchp17)
  1010.  
  1011.     * Changed the xrsh man page to remove the restriction that ultrix
  1012.     should run with /bin/sh5.  Now that I use "set -" instead of "set
  1013.     --" it works with the old Ultrix /bin/sh again.
  1014.  
  1015. Mon Mar  9 15:28:09 1992  James J Dempsey  (jjd@spchp17)
  1016.  
  1017.     * made some changes to xrsh and xrlogin due to suggestions
  1018.     by Charles Karney <karney@theory.pppl.gov>. 
  1019.  
  1020.     Changed xrlogin to take arbitrary xterm options.  Made those
  1021.     options be after "-name -title" so users can override.
  1022.  
  1023.     Fixed a bug where client host was checking to see if it was the
  1024.     same as localhost in order to set display to :0, when it should
  1025.     have been checking to see if it was the same as displayhost.
  1026.  
  1027.     Added default_auth_type so sites can customize the default
  1028.     authorization to be something other than xhost.
  1029.  
  1030.     New xrsh version 5.3.
  1031.     New xrlogin version 5.2.
  1032.  
  1033. @EOF
  1034. set `wc -lwc <ChangeLog`
  1035. if test $1$2$3 != 583582185
  1036. then
  1037.     echo ERROR: wc results of ChangeLog are $* should be 58 358 2185
  1038. fi
  1039.  
  1040. chmod 444 ChangeLog
  1041.  
  1042. if test -f FUTURE-WORK
  1043. then
  1044.     echo Ok to overwrite existing file FUTURE-WORK\?
  1045.     read answer
  1046.     case "$answer" in
  1047.     [yY]*)    echo Proceeding;;
  1048.     *)    echo Aborting; exit 1;;
  1049.     esac
  1050.     rm -f FUTURE-WORK
  1051.     if test -f FUTURE-WORK
  1052.     then
  1053.         echo Error: could not remove FUTURE-WORK, aborting
  1054.         exit 1
  1055.     fi
  1056. fi
  1057. echo x - FUTURE-WORK
  1058. cat >FUTURE-WORK <<'@EOF'
  1059. Here are some unstated goals for the xrsh script to consider in
  1060. designing enhancements:
  1061.  
  1062. 1. Keep xrsh as one script.  Configuration and installation are more
  1063. difficult with ancillary files.  As one script, it can be copied
  1064. easily from system to system.
  1065.  
  1066. 2. Keep xrsh portable.  Avoid features which might not work on all
  1067. UNIX variants.  E.g. some rsh don't have a -n option.  Some
  1068. /bin/sh don't have shell functions.
  1069.  
  1070. 3. Keep the number of programs fork()ed by xrsh to a minimum.  xrsh is
  1071. used a lot and always interactively so speed is important.  This is
  1072. why I play all those games with IFS, to avoid forking awk or sed.
  1073.  
  1074. Here are some things which might be done in the future or have been
  1075. recently tried. 
  1076.  
  1077. 1. Parse the DISPLAY environment variable without forking any extra
  1078. processes like sed.  Perhaps use IFS in the shell.
  1079. <done, but doesn't work in Ultrix /bin/sh>
  1080.  
  1081. 2. Pass other environment variables besides $DISPLAY.  Users might
  1082. want to pass an arbitrary set.
  1083. <can now pass XAUTHORITY using XRSH_AUTH_TYPE and arbitrary
  1084.   environment variables using XRSH_ENVS_TO_PASS>
  1085.  
  1086. 3. Don't use backslashes for quoting, only  use only ' and " for portability.
  1087. <What hosts don't handle backslashes?  This turns out to be very hard.>
  1088.  
  1089. 4. Pass  $XUSERFILESEARCHPATH to the remote host?
  1090. <I'm not sure this is always what you want to do, but you can
  1091.   do it if you want to using XRSH_ENVS_TO_PASS.>
  1092.  
  1093. 5. Add command line flag to describe the remote machine (like -sysv or
  1094. -irix).  This would get all the config options correct without having
  1095. to guess.
  1096. <I hope not to have to do this -- I hope to make the one script portable.>
  1097.  
  1098. 6. If you have to rsh the xhost to the serverhost, run it in the
  1099.      background and use wait before the final rsh to improve speed.
  1100. <I did this, but it made some system V hosts (HP-UX 7.0) go insane and
  1101. say "wait: pid 232 is not a child of this shell" over and over again.
  1102. I finally deleted it in the interests of portability.  Timing showed
  1103. it wasn't a major win in speed anyway>
  1104.  
  1105. 7. Expand DISPLAY environment variable  from foo to foo.org.com so
  1106. that it works when you leave your local site.
  1107. <hard to do in a site independent manner.  Now uses ip addresses if the 
  1108. remote host name contains periods like foo.bar.com>
  1109.  
  1110. 8. Decide rsh vs. remsh vs. rcmd at install time instead of run time.
  1111. <disadvantage:  one script can't be transferred from one machine to another>
  1112.  
  1113. 9. make first line be : instead of #!
  1114. <Can't -- without #! some systems use $SHELL to eval scripts.  May not
  1115. be the right thing>
  1116.  
  1117. 10. Use IP address when setting $DISPLAY for remote hosts that can't
  1118. resolve local hostname.
  1119. <This is done for remote host names with . in them>
  1120.  
  1121. 11. Have an .xrsh.rc file which can be used to tailor defaults for
  1122. specific hosts.
  1123.  
  1124. 12. If using xhsot authorization, optionally disable access to the
  1125. host after running the command.  Of course, on hosts where rshd
  1126. doesn't return, the xhost -host would never get executed until the
  1127. client exitied.  This feature was requested by Rick Calder, NCR
  1128. Systems Support Center - New Jersey [att!]rick!rick rick@rick.att.com
  1129. attmail!rcalder.
  1130.  
  1131.  
  1132. 13. (From kmp@harlequin via gildea@expo.lcs.mit.edu) in order to preserver
  1133. users quoting for arguments to client, don't preparse $@ into a variable
  1134. and then pass that variable along to the client via rsh.
  1135.  
  1136. Instead, of setting and resetting the cmd line args for IFS hacking, push 
  1137. a marker on the arg list and push other things on the front.  Then 
  1138. shift things off the front and stop when you get to the marker.
  1139.  
  1140. at the end, just pass $@ along as the arguments to the client.
  1141.  
  1142. set new stuff XYZZY "$@"
  1143.  
  1144. @EOF
  1145. set `wc -lwc <FUTURE-WORK`
  1146. if test $1$2$3 != 856243606
  1147. then
  1148.     echo ERROR: wc results of FUTURE-WORK are $* should be 85 624 3606
  1149. fi
  1150.  
  1151. chmod 444 FUTURE-WORK
  1152.  
  1153. if test -f Imakefile
  1154. then
  1155.     echo Ok to overwrite existing file Imakefile\?
  1156.     read answer
  1157.     case "$answer" in
  1158.     [yY]*)    echo Proceeding;;
  1159.     *)    echo Aborting; exit 1;;
  1160.     esac
  1161.     rm -f Imakefile
  1162.     if test -f Imakefile
  1163.     then
  1164.         echo Error: could not remove Imakefile, aborting
  1165.         exit 1
  1166.     fi
  1167. fi
  1168. echo x - Imakefile
  1169. cat >Imakefile <<'@EOF'
  1170. XCOMM Copyright 1991 by James J. Dempsey <jjd@bbn.com>
  1171. XCOMM 
  1172. XCOMM Permission to use, copy, modify, distribute, and sell this software and 
  1173. XCOMM its documentation for any purpose is hereby granted without fee, 
  1174. XCOMM provided that the above copyright notice appear in all copies and that 
  1175. XCOMM both that copyright notice and this permission notice appear in 
  1176. XCOMM supporting documentation, James J. Dempsey makes no representations 
  1177. XCOMM about the suitability of this software for any purpose.  It is provided 
  1178. XCOMM "as is" without express or implied warranty.
  1179.  
  1180. PROGRAMS = xrsh xrlogin
  1181.  
  1182. all:: $(PROGRAMS)
  1183.  
  1184. InstallNamedProg(xrsh.sh,xrsh,$(BINDIR))
  1185. InstallManPage(xrsh,$(MANDIR))
  1186. InstallNamedProg(xrlogin.sh,xrlogin,$(BINDIR))
  1187. InstallManPage(xrlogin,$(MANDIR))
  1188.  
  1189. depend::
  1190. @EOF
  1191. set `wc -lwc <Imakefile`
  1192. if test $1$2$3 != 2097775
  1193. then
  1194.     echo ERROR: wc results of Imakefile are $* should be 20 97 775
  1195. fi
  1196.  
  1197. chmod 444 Imakefile
  1198.  
  1199. if test -f README
  1200. then
  1201.     echo Ok to overwrite existing file README\?
  1202.     read answer
  1203.     case "$answer" in
  1204.     [yY]*)    echo Proceeding;;
  1205.     *)    echo Aborting; exit 1;;
  1206.     esac
  1207.     rm -f README
  1208.     if test -f README
  1209.     then
  1210.         echo Error: could not remove README, aborting
  1211.         exit 1
  1212.     fi
  1213. fi
  1214. echo x - README
  1215. cat >README <<'@EOF'
  1216. This distribution contains two programs, xrsh and xrlogin. 
  1217.  
  1218. Both are shell scripts.
  1219.  
  1220. Xrsh is designed to allow you to start an X client on a remote machine
  1221. with the window displayed on the current server's $DISPLAY.  It has
  1222. many options that give you the ability to propagate environment
  1223. variables (including DISPLAY) to the remote system and works with
  1224. various types of X server access control including xauth and xhost.
  1225.  
  1226. In X11R4 and previous, xrsh was called "xon".  There was a script in
  1227. X11R5 by Keith Packard by that name which has no relation to the
  1228. originally distributed xon script.
  1229.  
  1230. Xrlogin opens a local xterm window and runs rlogin or telnet to
  1231. connect to a remote machine.
  1232.  
  1233. Starting with the X11R5 version, xrsh has many new features
  1234. including a multitude of X access control methods, the ability to pass
  1235. arbitrary environment variables to the remote host and the ability to
  1236. start a client on a different screen than the current one.
  1237.  
  1238. To install on your system, the usual thing is to do an "xmkmf"
  1239. followed by a "make install".
  1240.  
  1241. IMPORTANT:
  1242.  
  1243. If you are running a System V variant, you may need to change the
  1244. first line of both scripts from "#!/bin/sh" to ": ".
  1245.  
  1246. James J. Dempsey
  1247. jjd@bbn.com
  1248. 4 October 1991
  1249. Updated for X11R6: 3 June 1994
  1250. @EOF
  1251. set `wc -lwc <README`
  1252. if test $1$2$3 != 342161250
  1253. then
  1254.     echo ERROR: wc results of README are $* should be 34 216 1250
  1255. fi
  1256.  
  1257. chmod 444 README
  1258.  
  1259. exit 0
  1260.